home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / mmailp.idb / usr / lib / Zmail / mp / mp.common.ps.z / mp.common.ps
Encoding:
Text File  |  1997-01-22  |  3.0 KB  |  74 lines
  1.  
  2. %  @(#)mp.common.ps 1.3 92/02/17
  3. %
  4. %  Mp PostScript routines common to all prologue files.
  5. %
  6. %  The initial header comments are read (and output to stdout)
  7. %  from the individual prologue file, then the contents of this
  8. %  file are read (and output to stdout), then the remainder of
  9. %  the individual prologue file.
  10.  
  11. /inch { 72 mul } bind def
  12. %
  13. %  IMPORTANT NOTE: The following two variables should be set correctly.
  14. %                  Reasonable values for fullwidth and fullheight are
  15. %                  8.5/11 inch for US Letter, and 8.5/11.4 inch for A4.
  16. %                  Since sites usually have one single format of paper,
  17. %                  mp should be installed with either the USLetter or A4
  18. %                  values.
  19. %
  20. /fullwidth 8.5 inch def
  21. /fullheight 11 inch def
  22.  
  23. % Define /ISOLatin1Encoding only if it's not already there.
  24. /ISOLatin1Encoding where { pop save true }{ false } ifelse
  25.   /ISOLatin1Encoding [ StandardEncoding 0 45 getinterval aload pop /minus
  26.     StandardEncoding 46 98 getinterval aload pop /dotlessi /grave /acute
  27.     /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring
  28.     /cedilla /.notdef /hungarumlaut /ogonek /caron /space /exclamdown /cent
  29.     /sterling /currency /yen /brokenbar /section /dieresis /copyright
  30.     /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
  31.     /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
  32.     /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
  33.     /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute
  34.     /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
  35.     /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth
  36.     /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
  37.     /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
  38.     /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae
  39.     /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute
  40.     /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex
  41.     /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex
  42.     /udieresis /yacute /thorn /ydieresis ] def
  43. { restore } if
  44.  
  45. %Title: backspacefont.ps suggested by Glenn Reid (Adobe Systems).
  46.  
  47. /backspacefont {
  48.     /CourierISO findfont dup length dict begin
  49.         { %forall
  50.             1 index /FID eq { pop pop } { def } ifelse
  51.         } forall
  52.         currentdict /UniqueID known { %if
  53.               /UniqueID UniqueID 16#800000 xor def
  54.         } if
  55.         CharStrings length 1 add dict begin
  56.             CharStrings { def } forall
  57.           /backspace { -600 0 setcharwidth pop } bind def
  58.             currentdict
  59.       end
  60.         /CharStrings exch def
  61.         /Encoding Encoding 256 array copy def
  62.         Encoding 8 /backspace put
  63.         currentdict
  64.     end
  65.     definefont
  66. } bind def
  67.  
  68. /reencodeISO { %def
  69.     findfont dup length dict begin
  70.     { 1 index /FID ne { def }{ pop pop } ifelse } forall
  71.     /Encoding ISOLatin1Encoding def
  72.     currentdict end definefont pop
  73. } bind def
  74.